Guidemac 2/Guidemac 2.iso/Divers Computer Bench⁄Apple/Logiciels Apple (dpt AppleSoft)/Apple Media Tool/Apple Media Tool Démo/Exemples AMT/Travel/For Programmers/SOURCES/S6_COIT.k

Text File | 1993-07-01 | 5KB | 302 lines

object S6_COIT is MEDIADISTRIBUTOR
has

    OffScreen()
        do
            self.Enable(false);
            self.Show(true);
        end;

with
    Enabled is false;
    Running is false;
    Duration is -1;
    Shown is false;
    X is 0; Y is 0; Width is 640; Height is 480;
    Items is [
        S6A1_S6_COIT,
        S6A14_AUD_CLK_WAV,
        S6A38_S6_COTB1,
        S6A40_S6_COTB2,
        S6A42_S6_COTMR,
        S6A41_S6_COTML,
        S6A111_S6_COB3L,
        S6A112_S6_COB4L,
        S6A113_S6_COB3R,
        S6A114_S6_COB4R
    ];
end;

object S6A1_S6_COIT is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(false);
            self.Show(true);
        end;

with
    Target is C24_S6_COIT;
    Enabled is false;
    Running is false;
    Duration is -1;
    Shown is false;
    X is 0; Y is 0; Width is 640; Height is 480;
    HotRegion is {
        $01DF0002, $0000027F, $01E00000, $FFFFFFFF
    };
end;

object S6A14_AUD_CLK_WAV is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(true);
            self.Show(true);
        end;

    MouseDown(theX, theY)
        do
            S6A14_AUD_CLK_WAV.Run(true);
            APPLICATION.GoBack(MEDIADISTRIBUTOR1);
            TRANSITION.Set(WipeLeft, 30);
        end;

with
    Target is C126_AUD_CLK_WAV;
    Enabled is false;
    Running is false;
    Duration is 0;
    Shown is false;
    X is 13; Y is 426; Width is 66; Height is 48;
end;

object S6A38_S6_COTB1 is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(true);
            self.Show(true);
        end;

    MouseDown(theX, theY)
        do
            self.Show(false);
            self.Enable(false);
            S6A111_S6_COB3L.Show(true);
            S6A111_S6_COB3L.Enable(true);
            S6A41_S6_COTML.Enable(true);
            S6A41_S6_COTML.GoToBeginning();
            S6A41_S6_COTML.Run(true);
        end;

with
    Target is C25_S6_COTB1;
    Enabled is false;
    Running is false;
    Duration is -1;
    Shown is false;
    X is 345; Y is 226; Width is 78; Height is 29;
end;

object S6A40_S6_COTB2 is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(false);
            self.Show(false);
        end;

    MouseDown(theX, theY)
        do
            self.Enable(false);
            self.Show(false);
            S6A113_S6_COB3R.Show(true);
            S6A113_S6_COB3R.Enable(true);
            S6A42_S6_COTMR.GoToBeginning();
            S6A42_S6_COTMR.Run(true);
        end;

with
    Target is C26_S6_COTB2;
    Enabled is false;
    Running is false;
    Duration is -1;
    Shown is false;
    X is 506; Y is 226; Width is 85; Height is 29;
end;

object S6A42_S6_COTMR is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(true);
        end;

    MouseUp(theX, theY)
        do
            self.Run(not self.IsRunning());
        end;

    Finished()
        do
            self.Enable(false);
            S6A113_S6_COB3R.Show(false);
            S6A113_S6_COB3R.Enable(false);
            S6A38_S6_COTB1.Enable(true);
            S6A38_S6_COTB1.Show(true);
        end;

with
    Target is C28_S6_COTMR;
    Enabled is false;
    Running is false;
    Duration is 0;
    Shown is false;
    X is 346; Y is 36; Width is 240; Height is 180;
end;

object S6A41_S6_COTML is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(true);
        end;

    Finished()
        do
            self.Enable(false);
            S6A111_S6_COB3L.Show(false);
            S6A111_S6_COB3L.Enable(false);
            S6A40_S6_COTB2.Enable(true);
            S6A40_S6_COTB2.Show(true);
        end;

with
    Target is C27_S6_COTML;
    Enabled is false;
    Running is false;
    Duration is 0;
    Shown is false;
    X is 346; Y is 36; Width is 240; Height is 180;
end;

object S6A111_S6_COB3L is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(false);
            self.Show(false);
        end;

    MouseDown(theX, theY)
        do
            S6A41_S6_COTML.Run(false);
            self.Show(false);
            self.Enable(false);
            S6A112_S6_COB4L.Show(true);
            S6A112_S6_COB4L.Enable(true);
            APPLICATION.Refresh();
        end;

with
    Target is C37_S6_COB3L;
    Enabled is false;
    Running is false;
    Duration is -1;
    Shown is false;
    X is 440; Y is 230; Width is 43; Height is 21;
end;

object S6A112_S6_COB4L is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(false);
            self.Show(false);
        end;

    MouseDown(theX, theY)
        do
            self.Show(false);
            self.Enable(false);
            S6A111_S6_COB3L.Show(true);
            S6A111_S6_COB3L.Enable(true);
            APPLICATION.Refresh();
            S6A41_S6_COTML.Run(true);
        end;

with
    Target is C39_S6_COB4L;
    Enabled is false;
    Running is false;
    Duration is -1;
    Shown is false;
    X is 435; Y is 230; Width is 57; Height is 20;
end;

object S6A113_S6_COB3R is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(false);
            self.Show(false);
        end;

    MouseDown(theX, theY)
        do
            S6A42_S6_COTMR.Run(false);
            self.Show(false);
            self.Enable(false);
            S6A114_S6_COB4R.Show(true);
            S6A114_S6_COB4R.Enable(true);
            APPLICATION.Refresh();
        end;

with
    Target is C38_S6_COB3R;
    Enabled is false;
    Running is false;
    Duration is -1;
    Shown is false;
    X is 440; Y is 230; Width is 43; Height is 21;
end;

object S6A114_S6_COB4R is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(false);
            self.Show(false);
        end;

    MouseDown(theX, theY)
        do
            self.Show(false);
            self.Enable(false);
            S6A113_S6_COB3R.Show(true);
            S6A113_S6_COB3R.Enable(true);
            APPLICATION.Refresh();
            S6A42_S6_COTMR.Run(true);
        end;

with
    Target is C40_S6_COB4R;
    Enabled is false;
    Running is false;
    Duration is -1;
    Shown is false;
    X is 437; Y is 230; Width is 57; Height is 20;
end;